PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
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PPPPPPPP AAAAAA SSSSSSSS RRRRRRRR EEEEEEEEEE  AAAAAA DDDDDDDD _—iuU WU TTTTTTTTTT 

PPPPPPPP AAAAAA SSSSSSSS RRRRRRRR  EEEEEEEEEE — AAAAAA  DDDDDDDD _——UU UU TTTTTTTTTT 

PP PP AA AA SS RR RR EE AA AA DD DD UU UU TT 

PP PP AA AA SS RR RR EE AA AA DD DD UU UU TT 

PP PP AA AA 55S RR RR EE AA AA DD DD UU UU TT 

PP PP AA AA SS RR RR EE AA AA DD DD UU UU TT 

PPPPPPPP = AA AA  SSSSSS__—sRRRRRRRR-~— EEEEEEEE = AA AA DD D UU UU TT 

PPPPPPPP = AA AA  SSSSSS__RRRRRRRR-~=— EEEEEEEE = AA AA DD DD UU UU TT 

PP AAAAAAAAAA SS RR RR cE AAAAAAAAAA DD DD UU UU TT 

PP AAAAAAAAAA SS RR RR EE AAAAAAAAAA DD DD UU UU TT 

PP AA AA SS RR RR EE AA AA DD DD UU UU TT a 
PP AA AA SS RR RR_ EE AA AA DD DD UU UU TT het 
PP AA AA SSSSSSSS_—RR RR EEEEEEEEEE AA AA DDDDDDDD § — UUUUUUUUU TT rte 
PP AA AA SSSSSSSS_—s RR RR EEEEEEEEEE AA AA DDDDDDDD  — UUUUUUUUUU TT pret 
LL eeeeel SSSSSSSS 

LL ease SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL 1] $$ 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL 1] SS 

LL I] SS 

LL I] $$ 

LLLLLLLLLL IIIIII «= SSSSSSSS 

LLLLLLLLLL §=sSTIII) «= SSSSSSSS 
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$ 1 4 1 MODULE PASSSREAD_UTIL ( Edt # ‘Utility routines used by READ’ : 
; ¢ 4 TOENT = '1-001 ! File: PASREADUT.B32 Edit: S8L1001 : 
3 = : 
Pi Bir a 
: § 000g } RITITILILILILI LILLE LLL LiT ii LiTiiiiiiiiiiiiiiiiiii iii | : 
ay 8 0008 1 is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . ; 
om: 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . | ; 
: 19 id } ¥ ALL RIGHTS RESERVED. * $ 
: ' « 3 
: i porg 1 '* THIS SOFTWARE IS “gig UNDER A LICENSE AND MAY BE USED AND corte * ° 
: 1 01 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH iit AND WITH THE * ; 
é 14 0014 1 !* INCLUSION OF THE ABOVE Spl a, NOTICE. THIS SOFTWARE OR ANY OTHER * : 
H 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® : 
3 \? Rete ; he TRANSFERRED. « 3 
: ' * $ 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
4 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
3 $3 oe) : i* CORPORATION. * 3 
Py . w é 
3 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
.)- a 0025 1 !« * 3 
; @ 0026 1 !* * 3 
3 a7 0027 1 PETTTITILILI ILL LLL LLL LLL LLL TLL LLL TLL TLL iti tiie Z 
: «628 0028 1! 3 
; @& 0029 1 3 
; 30 0030 1 !+4+ : 
ae 0031 1 ! FACILITY: Pascal Language Support : 
; «(Se 0035 1 i 3 
; 33 003 1 i ABSTRACT: F 
. = 0034 1! 3 
; 0035 1! This module contains utility procedures used by 3 
; 38 bo36 : } the numeric READ procedures. : 
; $ 4 ; ENVIRONMENT: User mode - AST reentrant 3 
i 40 0040 1 | AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 ; 
: 42 0042 1 | MODIFIED BY: : 
s 635 0043 1! 3 
3 44 0044 1 ! 1-001 - Original. SBL 1-April-1981 : 
s 65 0045 1 !-- 3 
3 46 0046 1 : 
ten 
3 

| 
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PA SSREAD UTIL Utility routines used by READ 16-Sep =13 4 AX-11 Bliss-32 V P 
1- eclaretions 4 14-Sep 2 93: 37 3 PASRTL.SR ROIP PASRE LADUT. 382: 37 = (25 
047 
048 
049 
8 
052 REQUIRE 'RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 


| TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSSGET_UNSIGNED: JSB_READ UTIL, 
PASSS$GET~ ~ INTEGER: JSB_READ OTIL, 
PASS$GET"REAL: JSB_READ UTIL. 
PASS$SGEi “ENUMERATED: PiS8 UREA UTIL, 


FIND_NON_BLANK: JSB_FIND_NON_BLANK; 


PAA ASIII 
OOWONAUSWN—OO0 


Get an unsigned string 

Get an integer string 

Get a real erro 

Get an enumerated value string 


Find next non-blank character 
] 

! MACROS: 

; NONE 

EQUATED SYMBOLS: 


LITERAL 
. ‘eretn class codes used below for CLASSTAB. 


SOOCOSOSOOCSCOSOSOOCOSCOOSOOCOOSOOSSOOOOOOCSOOCOOOOOOOOOOOOCOOOOOCOOOOOoOO Vg 
ee ee ee ee ee ee eee | 
AUS WN 0 OONAUEWN (OOO NAOU EWA $0 OONOAUS WA! —"OOONO 
Dee Se Be Se Se Oe Se BH Se Se Se Se SH Se Se Be SESE Be Se Se Se Se Ge Se Se SH Se Se Se Se Se Se Se Se Se Se ee Se See Se Se Se Sear se te Se ee te Seer ee 


DRE QAXA DAA Mss BB EEE BE EWAN AI NIA POPUNOPUPOPUNINYNPY 
ee ee ee ee ae ee ee a ee ee ee ee ee ee ee ee ee ee ed a ed a ed dd od 


iv = 0, ! Invalid character 
BT = 1, ' Blank or Tab 
DG = ¢ ! Digit 
OP = 5, ' Decimal Point 
SI = 4, ! Sign 
EL = 5, ' Exponent letter 
LT = 6, ! Other letter, dollar and underscore 
\¢ 
Aliases for class codes for use in routines. 
CLASS_IV = iv, 
CLASS_BT = BT, 
CLASS_DG = DG, 
7 CLASS_DP = DP, 
8 CLASS_SI = SI, 
9 CLASS_EL = EL, 
CLASS_LT = LT; 
i] 
g ! FIELDS: 
4 : 
5 : NONE 
6 ! 


XSBTTL ‘Declarations’ 

PROLOGUE DEFINITIONS: 
| 
| 


31 


52 
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JPASREADUT.B 


1 Blis 
TL. SRC 


| 
i 
' 
| 
rere eee ee | 
} 


rs is assigned a class code 


*iv.iv.ive)s 


0 
1 
for determining the class of a particular 
i 
i 
D 
i 
L 
i 
LU ok beh bok t 


st 128 characte 


RAL section. 


wew 


: table 
ach of 


as Listed above int 


oe JOU Ils 


> > O > OF 


The followin 


character. 
CLASSTAB: VECTOR (128, BYTE] PSECT (_PASSCODE) INITIAL (BYTE( 


+ 
= 


! OWN STORAGE: 


P-DWKOK— MUM TF NOR. OPO CUM TINOR. COD 
OOOr-fP-P-P_P-PR-P-P-P-P 00000000 000000000000 
PPC PCC CCC CCC CCC CCC CCC OC ECE 


ae ew Cw lew Fe lw le lola la lala lola lololololelolololo) 


UTIL Utility routines used by READ 
Declarations 


POR- DHOOM MUM TNOR-DHO— CUM TNO 
OOCCO eK KCK KK KK KK NNNNNNINN 
el eel cel ee ee ee cee ee el el el eel oe oe ee ee ee el el ee el 


oO 
<< 
[ve 
a 
A 
A 
” 
4 
a 
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1 PASSSGET_UNSIGNED = Find an unsigned number str 14-Sep-1984 12:51:47 PASRTL.SRCJPASREADUT .B352;1 (3) | 


190 ZSBITL ‘PASSSGET_UNSIGNED = Find an unsigned number pen J ; 
19 GLOBAL ROUTINE ett UNSIGNED ( ! Get unsigned number string 
19 PFV: REF SPASSPFV FILE VARIABLE ' Pascal File Variable 

019 IN_FCB: REF $PASSFCB_CONTROL_BLOCK; File control block 


STRING_ADDR, 

STRING LEN 

FCB: REF $PAS$FCB_CONTROL_BLOCK 
) : JSB_READ_UTIL = 


Output string address 
Output string Length 
File control bloc 


!44¢ 


i FUNCTIONAL DESCRIPTION: 


This procedure advances the textfile referenced by FCB until it 

locates a pirios that satisfies the Pascal UNSIGNED datatype 

syntax. The address and length of that string are returned as 

output parameters. 
} 


CALLING SEQUENCE: 


Valid.we.v = JSB_READ UTIL PASSS$GET_UNSIGNED (PFV.mr.r, IN_FCB.mr.r; | 
STRING_ADDR.wl.v, STRING_LEN.wl.v, FCB.mr.r) 


FORMAL PARAMETERS: 


WN CO OONAULSWN ("OO ONAOUES WN" OOONOAUESWN OO 
PIMIMIPIPINPINPINININDS 2 9 SS SM QOOODOOOOCOOOOOOOO 


SOOWDONAVULS WN — O OONAUS WN ("OO ONOAUESWR “OO ONOUE 


xb adadadtadtadtadadadabebatabatablatababebaadbeababadaiacheabehabiabaabababaiaaababababuaabaiababubabababababad 

0900090909 09 I IN NII NI INS SDAA APO DADA A DADA A EE EE EE EE EE AA AMNAMAN CIID - 
POPOIPOPIPOPOPIPYINPYIPNYIPINP NPI PUNIPINPIPINIPYININPIPINPINPININININININININININININININ 2 

datadmadadabaiabaiabaiwiabababtad daaiuie@buabwiatwiciciabwMabmbabaiabiaiaieicieieiemiabmiaiaiabhababaiababada aad 


Be Be Be Be Be Oe Oe Se Fe Be Be Se Ge SF Se Se Se SHH H Se He SHS Se FH Se Se BH Se Se SH Se SESE SH Se Se SESE THESE Se Se Se SESH SH Se Seer ee See Sees tees 


0 

0 

0 

0 

0 

0 

0 

0 ' 

0 : 

0 ‘ 

0 : 

0 : 

0 ! 

0 : 

0 : 

0 ! 

0 : 

0 ! 

0 : 

0 ! 

8 PFV - The Pascal File Variable of the file. 

0 IN_FCB - The File Control Block of the file being scanned. 

5 It is assumed to be a textfile. 

0 STRING_ADDR - Output begterer parameter which is set to the 

4 address of the first byte of the string. 

0 i STRING_LEN - Output register parameter which is set to the | 

8 Length of the string in bytes. 
: 3 FCB - Output register parameter which is the same as IN_FCB. 
6 0 ; IMPLICIT INPUTS: | 
8 9 é : It is assumed that lazy-lookahead is not in progress. 
0 0231 i IMPLICIT OUTPUTS: 
g $2 EeStA FELON OM points to the next character after the string, or 
4 0235 1! . 
1 0 $$ : ROUTINE VALUE: 
7 6 38 i 1 if string is a valid unsigned, 0 otherwise ; 
g 8 i; If 0 is returned, the pointer and length include the first bad character. 
0 $54) i SIDE EFFECTS: 
1 0 rk : 
§ 024 : NONE 

0244 : 
4 0245 ! SIGNALLED ERRORS: 
5 0246 ; 


j ity routines used by READ 1 
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PASSSREAD_UTIL U 
1-001 P 


! NONE 
8? 
88 leo 
89 
BEGIN 
LOCAL 
CHAR; ! Character read 


4 

' Declare CHAR_BYTE which is the same as CHAR except that we can 
! test it as a signed byte. We want to leave CHAR as a longword 
so that it can be used efficiently as an index. 


BIND 
CHAR_BYTE = CHAR: BYTE SIGNED; 


4 
! Find first character that is not a blank or a tab, possibly skipping 
records. 


CHAR = FIND_NON_BLANK (PFV CPFVSR_PFVJ, IN_FCB CFCBSR_FCBJ; FCB); 
'¢ 


! At this point, CHAR contains the first character which is nct a blank 
or a tab. Initialize STRING_ADDR. 


STRING_ADDR = .FCB CFCBSA_RECORD_CUR]; 
'¢ 


! In a loop, classify the characters until end-of-Line or an invalid 
character is found. 


WANA WII PO POPononefnorfufnoen So -~Snd-uste 2 bee eno oe hee 


7~ 
eS SSSR SSS NOR WN HO ODNOOER WO OWNER WO OOOO UE UR 


1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
2 
2 
2 
2 
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Be Be Be Oe Be Be Be Se Se Se Ge Se Se Se Se Be Fe Se Se Se Se Se Se Fe FH Ge SH Ge Se Ge HSH Ge SESH SH Se SESH Se SESH Se Se Se Se SHS Se Se Se Se Se Se Se Seas 


262 

283 

284 WHILE 1 DO 

285 BEGIN 

286 

287 + ; ‘ 

288 ' Screen out characters 128-255, which are not in CLASSTAB, by 
290 doing a signed byte test for a negative value. 
91 

$36 IF .CHAR_BYTE LSS 0 

29 

294 EXITLOOP; 

295 

296 ‘+ Mee / 

344 If the character is not a digit, exit. 

99 

$00 IF .CLASSTAB C.CHAR] NEQU CLASS_0G 

$08 EXITLOOP; 

30 
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=" 
4 


-TITLE PASSS$READ_UTIL Utility routines used by READ 
-IDENT \1-001\ 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


> 243 0 "P 4 

: te 0 0g i ;. eet another character if not at end-of-Line. 
: 26 0 

3 23 0308 FCB CF CBSA RECORD CUR] = .FCB CFCBSA_RECORD_CUR] + 1; | 
: re 8 IF z FCB CFCBSA_RETORD_ curd LSSA .FCB-CFCBSA_RECORD_END] 

; 30 0 i CHAR = CHSRCHAR (.FCB CFCBSA_RECORD_CUR]) 

3 
; 031 EXITLOOP; 

Be mrp | 
; 3 : co 

: $55 O36 , | 
: 256 0317 '¢ 
3 gor 0318 i Set STRING LEN to length of string and return success or failure 
: $28 8333 i j Sebending On whether or not string is a valid unsigned. 
: 260 0321 

H sei O56 nies LEN = .FCB CACBSA_ RECORD_CUR] = .STRING_ADDR; | 
; soe 0323 2 « STRING_ LEN NEQ 0 

; $e 0324 § THEN 

; 264 0325 RETURN 1; | 
; 265 0326 § 
; 266 0327 STRING_LEN = 1; ! Include first erroneous character 
; 267 0328 2 RETURN’ 0; ! Return failure 

: 268 0329 2 | 
; 269 0330 1 END; ! End of routine PAS$$GET_UNSIGNED | 
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00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00000 CLASSTAB: 
BYTE 0,0, 0,0, 0, 0,0.0,0.1.0,0.0,.0.°-;3 
00 00 00 00 00 00 00 00 06 00 00 00 00 00 O00 O000F S, Be Be Be Be Be Be Be Go Be Be Bo Ge Ge * 8 
00 04 00 00 00 00 00 06 00 00 00 01 O00 OO OOODTE Sy Bs Be Oe Be Be Be Oe Ba Oe Be Bs Ge Bs * iF 
00 00 02 O02 O02 O 4 02 02 02 O02 O02 00 03 04 Bonge D, Bo Be Sa Be Be Ba fe Be Oe Ca Oe Ee Oe 7 1 
06 06 06 06 06 05 05 06 06 06 00 00 00 00 00 0003C Ss we Go Ge Be Gs Ge Ba Ba Oe Gx Ba Se Ba * 2 
06 06 06 06 06 06 06 05 06 06 06 06 06 06 00048 a, B t. Be Gs Ga Bs Be Be Be Bc Ba Be Se * I 
06 06 06 05 05 06 06 06 00 06 00 00 00 00 06 OO0S5A Ss Gs Be Be Gs Be Bo Be Be Ge Ge Be Se Oo @ 9 
06 06 06 06 06 06 05 06 06 06 06 06 06 06 06 00069 SB, Be Ba Sa Ge Bs Be Oe Os Oe Be Be Be Oe * | 
00 00 00 00 00 06 06 06 00078 6 3° Ss Bs Gs Bc. Be Be Ge Be Ba Be Bs Be * 3 
-EXTRN PASS$GET_UNSIGNED 
-EXTRN PASS$$GET_INTEGER 
-EXTRN PASS$S$GET_REAL, PASS$S$GET_ENUMERATED 
0000v 30 00000 PASS$GET UNS TONED: : 
6SBW ee NON_BLANK ; 0270 
54 EC A7 9 00 MOVL grcre BE TRING ADDR : 0277 
5 3 a0 1$: TSTB 3 0292 
1 00 | pected #2 ; 0300 
2 00 2$ ; 
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~~ 
@ 
vu 
uu & 
~~ <« 2 
oOo =x ws 
- ww 4 
t a 
7 p<] 
7 z 
~~ DD — 
ano ww a 
wv uM! o - 
a ~~ =e 
~~ oOo 
oo w ~ . 
MuCu@ 1 A - «oO 
1 inuee = sc 
4 
>a .”™ 
4aiIom Jn JJ) 
vaw>Ooaora>acoa 
ZEVOSI WOM. 
—VOEOveartaectve 
ad P 
N | a 


MODO-Motowe™M 
| eh eh ae et bd ol 
OOooooooooooo 
pee ee ee eee ee 4 
Ooooooo[o[coo 


Or we  MMOMOoOsN 
a0 Ve OOAfAO 


rors CO 
<<toagaumnoo ovr 


ev wv 
ww ww 
~ on ow 
zawmnaetewniw 
oO Vv 
Vv w 

w 

wm 


_PASSCODE + 0080 


Routine Base: 


! <BLF /PAGE> 


52 bytes, 


; Routine Size: 


= 


5 
PASSSREAD_UTIL Ur it ity routines used by READ 1$-sep-19 4 93:23:28 AX-11 St V4.0-74 Page 8 
1-001 PASSSGET_INTEGER = Find a signed number string 14-Sep-1984 12:51:4 PASRTL.SRC JPASREADUT .B52; 1 (4). 
; 27 3 1 XSBTTL "PASSSGET_INTEGER - Find a signed number string’ 
: 276 4 1 GLOBAL ROUTINE a te INTEGER ( ! Get signed number string 
: e275 a PFV: REF SPASSPFV_FILE VARIABLE ' Pascal File Variable 
g er § 1 IN_FCB: REF SPASSFCB_CONTROL_BLOCK; ! File control block 
: 27 1 STRING_ADDR, ' Output string address 
: 278 8 1 STRING_LEN ' Output string Length 
; 279 1 FCB: REF S$PASSFCB_CONTROL_BLOCK i File control bloc 
: HY re : ) : JSB_READ_UTIL = 
; S 6 tg 1 + 
: 8 0 rb : FUNCTIONAL DESCRIPTION: 
; Bs b3c3 1 This procedure advances the textfile referenced by FCB until it 
: 286 0346 1! locates a pir ing that satisfies the Pascal INTEGER datatype 
; 287 toh 1! syntax. The address and length of that string are returned as 
; 4 tk ' output parameters. 
3 90 0330 | ! CALLING SEQUENCE: 
: 29 035¢ 1 i Valid.we.v = JSB PASSSGET_INTEGER (PFV.mr.r, IN_FCB.mr.r; 
: $37 Be27 : STRING_ADBR.wl.v, STRING_LEN.wliv, FCB.mr.r) 
; 295 0335 | | FORMAL PARAMETERS: 
; 344 REE 4 ' ; PFV - Pascal File Variable of the file. 
: 444 0359 1} IN_FCB - The File Control Block of the file being scanned. 
; soy Beco ; It is assumed to be a textfile. 
; 302 Bare 1! STRING_ADDR - Output register parameter which is set to the 
3 304 Ose7 : } address of the first byte of the string. 
; 305 0365 1! STRING_LEN - Output register parameter which is set to the 
3 $08 B06 ! Length of the string in bytes. 
: 300 te : FCB - Output register parameter which is the same as IN_FCB. 
; 310 0370 1 { IMPLICIT INPUTS: 
; $15 6376 : It is assumed that lazy-lookahead is not in progress. 
; 314 0374 { IMPLICIT OUTPUTS: 
: 316 8378 a7 FCBSA_RECORD_CUR points to the next character after the string, or 
erie pee 
3 19 0379 | 1 ROUTINE VALUE: 
; 321 0381 ; NONE 
; 38 0388 i SIDE EFFECTS: 
; 325 Oeee 1! 1 if string is a valid integer, 0 otherwise. g 
3 $$ 03 $ : If failure is returned, STRING_LEN includes the first bad character. 
: 328 0388 | | SIGNALLED ERRORS: 
i; 329 0389 1! 


H 5 
4 used by READ \o~sen= 1986 91:39:28 AX-11 Oh fegete Yr On7 86 Page 9 
AS - Find a signed number string 14-Sep-1984 12:51: PASRTL.SRC JPASREADUT .B52; 1 (4) 
3 90 1! NONE : 
F 1 4! 1; : 
; g 38 | | ; 
: 334 336 BEGIN : 
; 9 LOCAL ; 
; 9 CHAR ! Character read : 
; 8 9 VALID; ! 1 if string a valid unsigned. : 
: 340 0400 t+ 
: 341 401 i Declare CHAR_BYTE which is the same as CHAR except that we can | ; 
; ¢ 40 ! test it as a signed byte. We want to leave CHAR as a longword ; 
; 34 040 ! so that it can be used efficiently as an index. 3 
: 344 0404 !- $ 
: $e $406 BIND 
: 347 hi CHAR_BYTE = CHAR: BYTE SIGNED; | F 
: 305 0209 r | 
: 350 0419 i Find first character that is not a blank or a tab, possibly skipping : 
> 351 0411 : records. : 
Be Meg | i 
; 2 0616 CHAR = FIND_NON_BLANK (PFV CPFVSR_PFVJ, IN_FCB CFCBSR_FCB); FCB); | ; 
: 356 0416 3 ‘+ | 3 
; 357 0417 ! Initially, string is invalid. PF 
; 358 0418 !- : 
; 359 0419 F 
; 360 0420 VALID = 0; 3 
3 363 ot} i : 
; $8 04 : $ i at this point, CHAR contains the first character which is not a blank : 
: 366 Ques ¢ i or a tab. Initialize STRING_ADDR. : 
3 6369 be H '- : 
‘ | ° 
: 0427 $ STRING_ADDR = .FCB CFCBSA_RECORD_CURI; : 
Be RBS, ed 
: 370 0430 i If first character is a sign, advance pointer. | : 
; a. ott te | : 
i 305 se IF ,CHAR_BYTE GEO 0 | : 
: 375 435 IF .CLASSTAB C.CHAR] EQLU CLASS_SI ; 
: 38 439 THEN REGIN | : 
: 378 438 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + 1; | ; 
; 379 439 IF FCs CFCBSA_RECORD_CUR] iSSA .FCB”CFCBSA~RECORD_END) | 3 
: 81 pea) esac = CHSRCHAR (.FCB CFCBSA_RECORD_CUR)) | ; 
; Hy st CHAR = %C' *; ! End of Line F 
$ 84 444 END; : 
; 385 445 : 
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1 PASSSGET_INTEGER = Find a signed number string 14-Sep-1984 12:51: PASRTL.SRC JPASREADUT .B52; 1 (4). - 

; 387 47 ! In a loop, classify the characters until end-of-Line or an invalid : 
; 388 ‘8 ' character is found. : 
: 389 44 !~ ; 
; 390 450 : 
; 391 2) WHILE 1 DO : 
: 35 4 § BEGIN : 
; 39 45 : 
€ 94 454 '¢ | ° 
; 395 455 ! If the character's value is greater than or equal to 128, : 
: 4] $28 ! it can't possibly be valid, so exit. Do this by a test for | : 
: 39 45 ! negative on CHAR_BYTE. | : 
. : : 
» 99 4 . 
; 400 0460 IF .CHAR_BYTE LSS 0 . 
; 401 9461 ; 
; 40 Abe EXITLOOP; ; 
¢ 40 046 e 
> 404 0464 '¢ . 
: 405 0465 ! If the character is not a digit, exit. $ 
e 0466 != ° 
; 407 0467 F 
; 408 0468 IF .CLASSTAB C.CHAR] NEQU CLASS_DG : 
; 409 0469 : 
; 410 0470 EXITLOOP; : 
3; 411 0471 3 
3 tig 047 + : 
: 41 04 ! At least one digit seen, so indicate string valid. 3 
; 416 0474 !< ; 
: 6415 0475 3 
; 416 0476 VALID = 1; : 
: 417 0477 | 
: 418 0478 '¢ 3 
: 419 0479 ! Get another character if not at end-of-Line. | : 
° 420 0480 != . 
3; 421 0481 : 
; 422 048 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + 1; ; 
3 $s? BeS? . ae CFCBSA_RETORD_CUR] LSSA .FCB CFCBSA_RECORD_END] | : 
; i533 0485 CHAR = CHSRCHAR (.FCB CFCBSA_RECORD_CUR]) : 
; $$$ 0486 : 
; 42 0487 EXITLOOP; : 
; 428 0488 ‘ 
: 429 0489 END; ! Of WHILE loop : 
: 430 490 : 
> 431 491 1+ | ; 
3 $36 84 ! Set STRING_LEN to Length of string and return. : 
: oe 19% “ | : 
3; 435 495 STRING_LEN = .FCB CFCBSA_RECORD_CUR] - .STRING_ADDR; ; 
3 $3 rf HF gS TRING_LEN EQL 0 ! IF so, VALID must be zero F 
: 438 498 STRING_LEN = 1; | 
3 rh RETURN (.VALID); 
: 501 END; ! End of routine PASSS$GET_INTEGER 
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PASSSREAD_UTIL yeti ity routines used b AD 
1-001 PASSSGET - Fi signed number string 


ne y 
INTEGER nd a 


0000V 30 00000 PASSSGET_INTEGER:: 
6SBW  -FIND_NON_BLANK 0414 
52 p4 90005 CLRL VALI 0420. 
5] EC A 000 MOVAB -20(FCB), R1 0427 | 
4 $i D 9009 MOVL (R1), STRING_ADDR 
13 Giang. SyMLevTE - 
04 FF37 CF40 91 $010 CMPB = CLASSTABCCHARI, #4 0435 
08 ie 0016 SNEQ =s«a1$ 
61 0 1 INCL (R 0438 | 
FO OAT 61 D1 OOO1A CMPL (R 
1A 1F 0001 BLSSU 2s 
50 20 p0 00 MOVL & 
0 95 00923 1$ TSTB CHAR BYTE 0460 
19 19 00025 BLSS $ 
02 FF20 CF40 91 00027 CMPB CLASSTABLCHARI, #2 0468 
11 12 002D BNEQ $ 
52 01 DO 0002F MOVL #1, VALID 0476 
61 D6 00 2 INCL (R4) 048 
FO AT 61 D1 000 CMPL (R1), -16(FCB) 048 
06 1€ 00038 BGEQU 3$ 
50 00 B1 9A 0003A 2% MOVZBL @0(R1), CHAR 0485 
ES 11 00036 BRB 1$ 
55 61 4 ¢€3 00040 3$ SUBL3. STRING_ADDR, (R1), STRING_LEN 0495 
03 12 00044 BNEQ 4$ 0496 
55 01 DO 00046 MOVL #1, STRING_LEN 0498 
50 52 00 00049 4$ MOVL VALID, RO 0499 
05 0004¢ RSB 0501 


3; Routine Size: 77 bytes, Routine Base: _PASSCODE + 00B4 


; 44 $44 1 
: 44 0503 1 !<BLF/PAGE> 
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1 1 PASSSGET_REAL - Find a ect number string 12-Sep-19 4 93:23:29 PASRTL.SRC IPASREADUT .B 2:1 . (5) | 
: 445 1 ZSBTTL ‘PASSSGET ate: = Find a real number string’ | 
> 44 5 1 GLOBAL ROUTINE om seer REAL ' Get real number string 
> 44 1 PFV: REF SPASSPFYV FILE VARIABLE ' Pascal File Variable 
: 448 1 IN_FCB: REF SPASSFCB_CONTROL_BLOCK; i File control block 
3; 449 5 3 1 STRING_ADDR, | Qutput string address 
; 450 1 STRING LE ! Output string length 
; 451 10 1 FCB: REF SPASS$FCB_CONTROL_BLOCK i File control bloc 
: : ¢ 213 ; ) : JSB_READ_UTIL = 
: 454 b818 1 tes 
: $22 0315 : FUNCTIONAL DESCRIPTION: 
: rk 316 1/ This procedure advances the textfile referenced by FCB until it 
; 458 0517 1! locates a string that satisfies the Pascal REAL datatype 
: 459 0518 1! syntax. The address and length of that string are returned as 
; rec tah ' } output parameters. 
; 46 03 1 i CALLING SEQUENCE: 
: 464 05 : 1! Valid.we.v = JSB PASSSGET_REAL (PFV.mr.r, IN_FCB.mr.r; 
: ret b2S¢ ' STRING_ADBR.wl.v, STRING_LENwl.v, FCB.mr.r) 
; 467 05 $1 | FORMAL PARAMETERS: 
; r¢ 4 B2 $ : | PFV - Pascal File Variable for the file. 
: 471 0530 1! IN_FCB - The File Control Block of the file being scanned. 
3 4! 33 1 ! It is assumed to be a textfile. | 
: 474 §238 1 STRING_ADDR - Output register parameter which is set to the 
: rte b2ee ' } address of the first byte of the strina. 
: 477 0536 1! STRING_LEN - Output register parameter which is set to the 
; oz Eh 4 : Length of the string in bytes. 
; rts} £344 : FCB - Output register parameter which is the same as IN_FCB. 
: 48 0541 ! IMPLICIT INPUTS: 
: rt 058 : It is assumed that lazy-lookahead is not in progress. 
; 486 0545 | i IMPLICIT OUTPUTS: 
: one 549 1 FCBSA_RECORD_CUR points to the next character after the string, or 
: 490 a3 | i a0 
: $2) 3330 : ROUTINE VALUE: | 
: 49 0352 1 | 1 if string is a valid real, 0 otherwise. 
3 rh 9337 ‘ : If failure is returned, STRING_LEN includes the first bad character 
; 496 035s ' SIDE EFFECTS: | 
> 498 888 i NONE | 
; 499 228 1! 
; 230 227 ' : SICNALLED ERRORS: 


0 aa - —— 
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ati PASSSGET_REAL - Find a real number string 12280071386 13:89:87 PASRTL’ SRESPASREADUT B92; 1 vat (4) | 
: 50 61 1! NONE 
; $8 $e 1! 
2 ane ee 
; 206 269 BEGIN | 
; 508 C9 LOCAL | 
; 509 568 HAR ' Character read 
; 510 0569 FLAGS: BITVECTOR (5); i Indicate value fields seen 
Mm BRB, 
: ig bare i Declare CHAR_BYTE which is the same as CHAR except that we can 
; 514 57 ! test it as a signed byte. We want to leave CHAR as a longword 
3 333 0574 ! so that it can be used efficiently as an index. | 
3 S16 0575 le 
: 3ig oy7 IND | 
: 519 0578 CHAR_BYTE = CHAR: BYTE SIGNED; 
: 33) 0380 LITERAL 
: 508 0581 FLAGS_EXPLT = 0, ! Exponent letter seen 
; te Bane FLAGS_POINT = 1, ! Decimal point seen 
> 524 058 FLAGS_FRADG = ¢- ! Fraction digit seen 
3 See 0584 § FLAGS_EXPDG = 3, ! Exponent digit seen 
s Se 0585 FLAGS_EXPSI = 4; ! Exponent sign seen 
oo: oe 
: 282 0588 i Find first character that is not a blank or a tab, possibly skipping 
; 530 0589 § ' records. 
Rpg 
F 338 039 : CHAR = FIND_NON_BLANK (PFV CPFVS$R_PFVJ, IN_FCB CFCBSR_FCBJ; FCB); 
REG, 
; 536 0595 $ i Initialize local flags. 
3; 537 0596 § !- 
; 538 0597 
s 33? 0598 FLAGS = 0; 
im BBR 
3 542 0601 i At this point, CHAR contains the first character which is not a blank 
; 543 060 i or a tab. Initialize STRING_ADOR. 
: 3ag S604 - | 
: 3a 0605 STRING_ADDK = .FCB CFCBSA_RECORD_CUR); | 
: 3a 0607 r | 
3 : 
3 549 0608 ! If first character is a sign, advance pointer. 
.oG each oe 
: 53¢ Ost IF .CHAR_BYTE GEQ 0 | 
> 554 $618 IF .CLASSTAB C.CHAR] EQLU CLASS_SI | 
; 555 614 THEN | 
: 56 615 BEGIN 
s SS7 218 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + 1; 
; 558 061 IF .FCB CFCBS$A_RECORD_CUR) LSSA .FCB”CFCBSA~RECORD_END) | 
| 
| 
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PASSSREAD_UTIL Utility routines used by READ 16-Sep-1984 01:55: AX-11 Bliss-32 V4.0-74 Page 14 
18001 i PASS$SGCT_REAL - Find a real number string 1228081382 93:29:83 PASRTL. RC IPASREADUT. $251 ' (5) 
3; 3 $18 THEN $ 
; 560 61 CHAR = CHSRCHAR (.FCB CFCBSA_RECORD_CUR]) ; 
; 561 620 ELSE | $ 
; 56 be 1 CHAR = &C° '; ! End of Line 3 
; 2 6 ¢ END; | : 
Py 64 6 | PY 
3 369 624 1+ ‘ 
>; 566 625 ! In a loop, classify the characters until end-of-line or an invalid $ 
; 567 89 6 ' character is found. ; 
; 208 627 le $ 
; 569 628 3 
; 570 629 WHILE 1 DO 3 
3 Sr) 630 BEGIN ; 
; 2f¢ 0631 3 
3 of 06 ; '¢ 3 
; 574 06 ! If the character's value is greater than or equal to 128, 3 
3 of 0634 ! it can't pegs ety be valid, so exit. Do this with a signed test 3 
; 576 0635 ! on CHAR_BYTE. : 
g sre 0636 le 3 
; 578 0637 3 
; 579 0638 IF .CHAR_BYTE LSS 0 3 
; 580 0639 THEN 3 
; 581 0640 EXITLOOP; ; 
; abe 0641 3 : 
3 338 064 ; + 3 
> 584 064 ! Select action based on character class. 3 
; 585 0644 3 = : 
>; 586 0645 3 3 
; 587 0646 3 CASE .CLASSTAB C.CHAR] FROM CLASS_IV TO CLASS_LT OF : 
; 588 0647 ; 3 
; 589 0648 SET 3 
: 390 0649 3 , : 
3; wi 0650 3 CCLASS_DG): ! Digit, always valid F 
; 238 0651 4 N 3 
; 59 0636 4 IF .FLAGS CFLAGS_EXPLTJ ! Exponent letter already seen? 3 
> 594 0653 4 THEN 3 
3; 595 0654 5 BEGIN 3 
: 596 0655 5 FLAGS CFLAGS_EXPSI] = 1; ! Prohibit future signs ; 
; 597 0656 5 FLAGS CFLAGS EXPDG) = 1; ! Mark exponent digit seen 3 
; 598 0657 5 END 3 
3; 599 0658 4 ELSE 3 
: 600 0659 4 FLAGS CFLAGS_FRADG) = 1; ! Mark fraction digit seen : 
3; 601 0660 END; : 
: O08 661 3 
; 60 O36 CCLASS_SI): ! Sign character 3 
3; 604 06635 4 N : 
; 60} peee ? IF NOT .FLAGS CFLAGS_EXPLT) ! Exponent letter not seen? 3 
: 607 06 4 EXITLOOP: ' If so, invalid 
; 608 667 4 IF _ .FLAGS CFLAGS_EXPSI) ! Exponent sign seen? 
3; 609 B99 4 THEN 
: 610 6 & EXT LOE: ! If so, invalid . | 
s 6) 670 4 FLAGS CFLAGS_EXPSI] = 1; ! Indicate exponent sign seen | 
; olg 4 ; END; 
3; 614 67 CCLASS_EL): !' Exponent letter 
: 615 0674 4 BEGIN 

| 

| 
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1-001 PASS$SGUT_ REAL - Find a beat number string 12-Sep-19 4 0b:29 528 PASRTL.SRCJPASREADUT .B352;1 . (5) 
; 61 0675 4 IF_ FLAGS CFLAGS_EXPLTI ! Exponent letter already seen? ; 
; 61 9/8 4 THEN ; 
; 618 677 & EXITLOOP; ! If so, invalid ; 
: 619 678 4 IF_NOT .FLAGS CFLAGS_FRADG) i Fraction digit seen? ; 
; 620 +244 4 THEN : 
3; 621 680 4 —_EXITLOOP; ! If not, invalid ; 
3; © ¢ 0681 4 FLAGS Aprtetag e i ! Mark exponent letter seen : 
; 6 et] 4 FLAGS CFLAGS_POINT]) = 1; ! Prohibit future decimal point ; 
: 624 068 END; : 
; 625 0684 ; 
3 ? $ bee? ? CCLASS_DP): ! Decimal point : 
; ? : Oe? : IF .FLAGS CFLAGS_POINT] ! Decimal point already seen? : 
3 £36 0689 4 EXTTLOgR: ! If so, invalid ; 
; 631 0690 4 FLAGS CFLAGS_POINT] = 1; ! Mark decimal point seen : 
; O36 0691 3 END; : 
; 63 069 : 
> 634 069 CINRANGE, OUTRANGE): ; 
; 635 0694 EXITLOOP; ! Invalid . 
; 636 0695 ; : 
3 657 0696 TES; : 
; 638 0697 3 F 
; 639 0698 ; ‘+ : 
; 640 0699 ! Get another character if not at end-of-Line. F 
3 641 0700 3 le 3 
; 642 0701 3 ; 
3; 643 0702 ; FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + 1; : 
> 644 0703 IF .FCB CFCBSA_RETORD_CUR] LSSA .FCB CFCBSA_RECORD_END] : 
3; 645 0704 3 THEN : 
3 646 0705 3 CHAR = CHSRCHAR (.FCB CFCBSA_RECORD_CURJ) F 
3; 647 0706 3 3 
; 648 0707 ; EXITLOOP; 
3 649 0708 
; 650 0709 2 END; ! Of WHILE Loop 
; 651 0710 § 
3 6632 0711 ‘t+ . “peed 
: 653 tar} 2 ! Set STRING_LEN to Length of string and return function value indicating 
3: 654 0713 2 ! whether or not string is valid. 
; 655 0714 2 !- 
3; 656 0715 2 
3 657 0716 2 STRING _LEN = .FCB CFCBSA_RECORD_CUR] - .STRING_ADDR; 
; 658 0717 IF .STRING_LEN EQL 0 | If so, string is invalid 
3; 659 0718 
3; 660 0719 STRING_LEN = 1; 
; 661 0720 RETURN ( aa ; 
3 oo 0721 IF .FLAGS CFLAGS FRADG) AND ! Fraction digit required | 
; oo7 o7S6 4 al -FLAGS TFLAGS_EXPLT]) OR .FLAGS CFLAGS_EXPDGJ) ! If exponent, must have digits 
3; 665 0724 1 ! Valid 
3; 666 0725 ELSE ‘ 
3; 667 0726 0 ! Invalid 
; 668 0727 Fe 
3; 669 O738 : 
; 670 07 END; ! End of routine PAS$$GET_REAL 
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routines used by READ 16- sep- 138% 91 :39:¢ AX-11 Bliss=-32 V4.0 
4 12:51:34 PASRTL.SRC PASREADUT . 5 2;1 


ENUMERATED = C108 an enumerated value string’ 
ROUTINE PASSSGET ENUMERATED ( Get enumerated yalve string 
PFV: REF SPASSPFV_FILE_ VARIABLE ' Pascal File Var 


! 
i 
IN_FCB: REF $PASSFCB_CONTROL_BLOCK; i File control block 
STRING_ADOR, i Qutput string address 
STRING LEN i Output string length 
FCB: REF SPASS$FCB_CONTROL_BLOCK i File control bloc 
) : JSB_READ_UTIL = 


1+4 
FUNCTIONAL DESCRIPTION: 

This prosseeg advances + textfile referenced by FCB until it 
locates a stri ng that satisfies the Pascal enumerated type value 
syntax. The address and length of that string are returned as 
output parameters. 

i CALLING SEQUENCE: 


Valid.we.v = JSB PASSSGET_ ENUMERATED (PFV.mr.r, IN_FCB.mr.r; 
STRING_ADBR.wl.v, STRING _LEN.wl.v, FCB.mr.rd 


i FORMAL PARAMETERS: 


PFV - Pascal File Variable for the file. 

IN_FCB - The File Control Block of the file being scanned. 
It is assumed to be a textfile. 

STRING_ADDR - Output vogrenet parameter which is set to the 
address of the first byte of the string. 


STRING_LEN - Output register parameter which is set to the 
length of the string in bytes. 


FCB - Output register parameter which is the same as IN_FCB. 
i IMPLICIT INPUTS: 

It is assumed that lazy-lookahead is not in progress. 

i IMPLICIT OUTPUTS: 

EEBCA RECORD Cis points to the next character after the string, or 


i ROUTINE VALUE: 


1 if string is a valid enumerated value, 0 otherwise 
If failure is returned, STRING_LEN includes the first bad character 


i SIDE EFFECTS: 
NONE 
i SIGNALLED ERRORS: 


os SEREAD UTIL 


NN 
wna 
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routines used by READ 16-Sep-1984 91:32:48 AX-11 Bliss-32 V4.0-74 
ENUMERATED = Find an enumerated value 14-Sep-1984 12:51:4 PASRTL.SRCJPASREADUT.B32;1 
NONE 
BEGIN 
LOCAL 


: Character read 
: Bit is set if associated 
! character class is valid 
' at this point. 


CHAR 
VALIO_CHAR_MASK: BITVECTOR (32); 


'¢ 

: Declare CHAR_BYTE which is the same as CHAR except that we can 
! test it as a signed byte. We want to leave CHAR as a longword 
so that it can be used efficiently as an index. 


BIND 
CHAR_BYTE = CHAR: BYTE SIGNED; 


4 
! Find first character that is not a blank or a tab, possibly skipping 
' records. 


CHAR = FIND_NON_BLANK (PFV CPFVSR_PFV], IN_FCB CFCBSR_FCBJ; FCB); 


'¢ 
! At this point, CHAR contains the first character which is not a blank 
or a tab. Initialize STRING_ADDR. 


STRING_ADDR = .FCB CFCBSA_RECORD_CUR]; 


t+ 
! First character must be a letter. (Class LT excludes exponent 
letters, so add class EL). 


VALID_CHAR_MASK = (1*CLASS_LT)+(1*CLASS_EL); 


'¢ 
: In @ loop, classify the characters until end-of-line or an invalid 
character is found. 


WHILE 1 DO 
BEGIN 


'¢ 

: If the character's value is greater than or equal to 128, 

' it can't poss tOly be valid, so exit. Do this with a signed test 
on CHAR_BYTE. 


-v 
i> 


F 6 
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PASSSREAD_UTIL Utility routines used by READ 4 :2 1 Blis 74 
1-001 PASSSGET_ ENUMERATED - Find an enumerated value 1328e0- 138 93:33:83 PASRTL. RC IPASREADUT .8 231 1-( 
; “6 IF .CHAR_BYTE LSS 0 | : 
; 48 EXITLOOP; 3 
: 23 F 
s + : 
5 af ' Get the class of the character from CLASSTAB and test its ; 
; 8 26 ! corresponding bit in VALID_CHAR_MASK. If it is not set, that 3 
5 5 ' character is not acceptable. | 3 
0885 2 | ; 
; Bee8 IF NOT .VALID_CHAR_MASK C.CLASSTAB C.CHARI) 3 
3 bee THEN F 
3 08568 EXITLOOP; 3 
3 0859 3 
: Opes att digits t f | 
; ! Ow ts to appear from now on. 3 
3 +444 != . | 3 
3 086 3 
; 0864 VALID_CHAR_MASK CCLASS_DG) = 1; | F 
: 0865 
F 0866 '¢ 
; 0867 ! Get another character if not at end-of-Line. 
wie wes::: / 
: | 
: ¢ 0870 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR]) + 1; 
: 813 0871 IF gf ce CFTBSA_RECORD_CUR] LSSA .FCB-CFCBSA~RECORD_END] | 
: 2 th CHAR = CHSRCHAR (.FCB CFCBSA_RECORD_CUR]) 
; 817 0875 3 EXITLOOP; 
3 8 0876 
: 9 0877 é END; ! Of WHILE Loop 
3 0 0878 
s 1 0879 
; ¢ 0880 ‘+ ; - 
; 0881 : Set STRING_LEN to Length of string and return function value indicating 
; o 088 ! whether or not string is valid. 
3 5 088 !- 
: 6 0884 
3 7 0885 STRING_LEN = .FCB CFCBSA_RECORD_CUR] - .STRING_ADDR; 
; 828 0886 IF .STRING_LEN NEQ 0 | 
3 9 0887 EN 
3 0 0888 RETURN 1; 
: $) 494 z 
3 § 890 STRING_LEN = 1; ! Include first had character 
3 ez Beet RETURN 0; ' Failure 
; 835 $B9 1 END; ! End of routine PAS$S$SGET_ENUMERATED 
| 
0000V 30 00000 PASSSGET_ENUMERATED:: 
W = FIND NON_BLANK ; 0815 | 
54 EC A7 00 00003 MOVL -20(FCB)> STRING_ADDR i Bees | 
51 60 8F 9A 00007 MOVZBL #96, VALID_CHAR_MASK ; 0830. 


6 

PASSSREAD_UTIL uritit out tines used by READ 18-58 -1984 01:55: AX=11 Bliss -32 V4.0-74 Page 21. 
18001 SGET ENUME RATED Find an enumerated value 1278087138 93:29:83 PASRTL. SRC} PASREADUT .B32; 1 . (6) | 
| 

50 95 00008 1$: TSTB HAR_BYTE + 0846) 
1D 19 D BLSS $ : 

2 FESB8 CF4O 9A F MOVZBL CLASSTABCCHAR], R2 > 0856. 

13 5 3 13 BBC Ro, VALID_CHAR MASK, 2$ : 

1 04 8 01 BISB2 #4 VALID= CHAR + 0864 | 
EC A? OD 1C INCL “Z0¢r cB + 0870 | 
FO A? EC A? D1 OOOTF CMPL (FCB), o16¢8 C8) + 0871) 
06 1E 4 BGEQU ; 

50 EC 87 7A 0 6 MOV ZBL §-20(F CB), CHAR + 0873 

55 EC A? 4 C3 0002C 28: SUBL3 STRING_ADDR, -20(FCB), STRING_LEN + 0885 

2? @ 90 } BEQL $ + 0886 

50 1 D MOVL #1, RO + 0888 

05 000 RSB ; 

55 1 D0 00037 38: MOVL #1, STRING_LEN + 0890 

0 D4 0003A CLRL ~— RO + 0891 

05 0003Cc RSB + 0893 


; Routine Size: 61 bytes, Routine Base: _PASSCODE + 0194 


: 836 0894 1 
; 837 0895 1 '<BLF/PAGE> 


+ ie hla Pith ky reusiocs used by READ tage p- 138 9 3334 AX-11 Bliss-32 V4.0-7 Page $¢ 
1-001 FIND _NON_BLANK = Find first non=-blank 12: -Sep-1984 12: PASRTL.SRCJPASREADUT. 4 231 (7) 
: 839 96 1 ZSBTTL ‘FIND oo BLA - ¢ Find first non-blank' 

: 0 97 1 ROUTINE cINON ON _BLAN ! Get first non-blank 

; 1 38 1 LAS SPrY FILE VARIABLE i ceecal File Variable 

3 5 1 tN cB: ner SPASSFCB CONTROL BLOCK; i File control block 

; 900 1 FCB: REF SPASSFCB CeRTROL BLOCK ' File control block 

3 4 901 1 ») : JSB “FIND _NON_BLAN ANR = 

; 845 902 1 

: re 905 1 !+4+¢ 

; bcs aye ! FUNCTIONAL DESCRIPTION: 

; 849 0 1 This procedure advances the textfile referenced by FCB until it 

; 850 838 1 i locates the first character which is not a blank or a tab. It 

; 851 908 1: returns that character as its function value. 

3 S26 0909 1! 

; 85 0910 1 | CALLING SEQUENCE: 

: 854 0911 1: 

3 B22 ad ! CHAR.wt.v = JSB FIND _NON_BLANK (PFV.me.r, IN_FCB.mr.r; FCB.mr.r) 

; 857 0914 1 | FORMAL PARAMETERS: 

; 858 0915 1! , 

; 859 9918 13 PFV - Pascal File Variable for the file. 

; 860 0917 1! 

; 861 0918 1! IN_FCB - The File Control Block of the file being scanned. 
3 b6¢ aah ! It is assumed to be a textfile. 

; Bee 0381 : FCB - Output register parameter which is the same as IN_FCB. 
: 866 $356 1 § IMPLICIT INPUTS: 

: 867 0924 1 

: 868 0925 1! It is assumed that lazy-lookahead is not in progress. 

; 869 09 $ 1: 

; 870 09 1: IMPLICIT OUTPUTS: 

; 871 0928 1! 

; B76 4594 1 FCBSA_RECORD_CUR points to the found character. 

3; 87 0930 1: 

; 874 0931 +1 i ROUTINE VALUE: 
; 875 0932 1! 

; 876 0933 1: The character found which is not a blank or a tab. 

3; 877 0934 1! 

; 878 0935 1 ! SIDE EFFECTS: 
; 879 0936 1! 

: 880 0937 1! NONE 

; 881 0938 1: 

3 HL 3444 1 i SIGNALLED ERRORS: 

; 88 940 1! ; 

; 884 0941 1 i GETAFTEOF - GET after end-of-file 

; 885 0942 1: 

; 886 bo 1 i- 

; 887 944 1 

é 88 945 BEGIN 

; 889 94 

; 90 94 LOCAL 

; 891 0948 CHAR; ' Character read 

; 89 949 

; «89 950 '¢ 

: 94 951 i Declare CHAR_BYTE which is the same as CHAR except that we can 

; 4895 952 i test it as a signed byte. We want to leave CHAR as a longword 
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PASSSREAD_UTIL Utility routines used by READ 1b-se -1984 01:55: AX-11 Bliss-32 V4.0-74 Page 23 PAS 

1-001 e FIND..NON, BLANK = Find first non-bank 14-Sep-19 4 93:39:83 PASRTL. RCIPASREADUT.B 2;1 . had 1-C 
3 953 ! so that it can be used efficiently as an index. 3 
; 38 33 l= ’ 3 
: a8 955 ; 
3 9 § BIND 3 
; 9 CHAR_BYTE = CHAR: BYTE SIGNED; : 
; 901 958 3 
; 306 959 FCB = .IN_FCB; : 
; 90 960 F 
; 9046 961 + : 
; 905 2444 ! Find first character that is not a blank or a tab, possibly skipping | $ 
3 a08 096 ' records. : 
:; 90 Boge '- | $ 
; 908 965 | 3 
; 909 0966 WHILE 1 DO | : 
; 910 0967 BEGIN $ 
> 911 0968 1+ : 
5 aig 0969 ! If we are at end-of-Line, get another record. This is done by ; 
3 at? Bayo } setting lazy-lookahed and then calling PAS$S$LOOK_AHEAD. : 
; 915 94h: 3 
: 916 097 IF .FCB CFCBSA_RECORD_CUR] GEQA .FCB CFCBSA_RECORD_END] . 
; 917 0974 3 THEN ; 
; 918 0975 4 BEGIN F 
; 919 0976 4 FCB CFCBSV_LAZY) = 1; ! Set lazy lookahead ; 
; 920 0977 4 PASS$LOOK_AHEAD (PFV CPFVSR_PFVJ, FCB CFCBS$R_FCBJ; FCB); | : 
3 $92 0979 3 ELSE F 
s Pz 0980 4 BEGIN 3 
,3 924 0981 4 '¢ : 
; 925 0982 4 ! Get next character, advancing pointer, and check class for blank 3 
: 936 0988 4 i or tab. | : 
: 927 0984 4 os | 3 
; 928 0985 4 CHAR = CHSRCHAR_A (FCB CFCBSA_RECORD_CUR)); 3 
3 929 0986 5 IF (.CHAR_BYTE CSS 0) OR (.CLASSTAB [.CHAR) NEQ CLASS_BT) : 
; = 0987 4 THEN 3 
; 931 0988 5 BEGIN | 5 
; oe6 0989 5 '+ ‘ ‘ : 
; 93 0990 5 ! Non blank/tab found. Reset record pointer to point | 3 
3 te: 444 5 to character and exit loop. : 
; 936 099 : FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] - 1; | ; 
3; 937 0994 5 EXITLOOP; 3 
; 938 0995 4 END; | : 
; 939 44 END; 3 
; 940 99 3 
3; 941 998 END; !' Of WHILE Loop $ 
; a6 999 3 
3 oe ioe RETURN .CHAR; ' Return found character | : 
3; «945 1002 1 END; ! End of routine FIND_NON_BLANK : 
.EXTRN PAS$SLOOK_AHEAD | ; 
FO A7 EC A7 D1 00000 FIND_NON_BLANK: é 
7 CMPL -20(FCB), -16(FCB) ; 0973 | : 

| 


PASSSREAD_UTIL Utility routines used b 
att eal FIND NON BLANK’: Find first non-blank 


C 
FD 7 Os 
000000006 +4 
58 EC By 
EC A? 
58 
i 
01 FEOC CF4 
DA 
EC A? 
50 58 


ou0 —$0o—"- 00 O— wo 


MONW— OVI > Con 


OoOCoOoOoDOOOOCOOoOo 


; Routine Size: 45 bytes, Routine Base: _PASS$CODE + 0101 
946 1003 1 
947 1004 1 !<BLF/PAGE> 


COOQOQooooCoooooo 
OOoOCoCCoCoooooo 


PMONROTPOKRO ee ee oe 


ODA LSMOYyP 


1973 
14- 


3 
wr 
oe 


™ 
wr 


sep-1964 01:55:25 


BL Ssy 1$ 
BIS #4, -3(FCB) 
J PASS$$LOOK_AHEAD 


$B 
ARB F IND_NON_BLANK 
MOVZBL rt AS BY, CHAR 
INCL 20(F 

TSTB HAR_BYTE 
BLSS 

CMPB CLASSTABCCHAR], #1 
BEQL F IND_NON_BLANK 
DECL P2OCFC ) 
MOVL CHAR, RO 
RSB 


AX-11 Bliss-32 V4.0-74 
PASRTL.SRCJPASREADUT .852; 1 


ry Used: 110 pages 
_—— ation Complete 


3 Size: 382 code + 
3; Run Time 00:15.4 
; he tease 00:53.6 
3; Lines/CPU Min: 3923 
3 powenee se ree 15841 


128 data bytes 
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PASSSREAD_UTIL Utility routines used by READ 16-Sep-1984 01:55:25 AX-11 Bliss-32 V4.0-74 Page 
1-001 FIND "NON.B BLANK = Find first nori=blank a aati 93:39:83 PASRTL.SRC JPASREADUT .832;1 ’ 3 
> 949 1005 1 END ! End of module PASS$$READ_UTIL 
3 ge 1906 1 3 
; 6951 1007 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; PASSCODE 510 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
RR RE ee ee SyGhels cooersce Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
3  $255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 86 20 33 00:00.4 
: COMMAND QUALIFIERS 
; FL SSS/HECR OEP EELS JE TEM, OPT IALEE/UO TRACES [Set ESS: PASREADUT/ORI“OS JS PASREARUT MSRC$:PASREADUT/UPDATE=(ENH$:PASREADUT 


~w 


PMENT CORPORATION 
AND PROPRIETARY 
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